u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 



RPIB 



SRC 



RP15 

.TITLE RP15 
/RP15 DISK PACK SYSTEM EKECISER MODULE, 

/ 

/REV, DATE "' 4/15/71 -- CH 

/ 

.EBREL 



00000 


R 


600024 


A 


/ 
UODSW 


600024 


00(301 


R 


000000 


A 







00002 


R 


000000 


A 







00003 


R 


000000 


A 







00004 


R 


000106 


R 




.OSA RPSER 


0000t> 


R 


000063 


R 




,DSA RPINT 


00006 


R 


222061 


A 




.SIXBT "RP15 " 


00007 


R 


654040 


A 






00010 


R 


000400 


A 




400 


00011 


R 




A 


/ 
SYSERR 


.BLOCK 7 


00020 


R 


000000 


A 





00021 


R 


000000 


A 


ERWC 





00022 


R 


00 000 


A 


ERCODE 





00023 


R 




A 


/ 

SECSIZ= 


.BLOCK 7 






005000 


A 


!5000 






00S000 


A 


BUFSHs 


sSECSIZ 






000004 


A 


TSTRUN= 


4 






707764 


A 


EBA«707764 






707702 


A 


E£M?707702 


00032 


R 


706464 


A 


DPLF 


706464 


00033 


R 


706304 


A 


DPLA 


706304 


00034 


R 


706344 


A 


DPCA 


706344 


00035 


R 


706364 


A 


OPWC 
/ 

DPSF 


706364 


00036 


R 


706301 


A 


706301 


00037 


R 


706321 


A 


DPSA 


706321 


00040 


R 


706341 


A 


DPSJ 


706341 


00041 


R 


706361 


A 


DPSE 

/ 

DPRSA 


706361 


00042 


R 


706312 


A 


706312 


00043 


R 


706332 


A 


DPRSB 


706332 


00044 


R 


706432 


A 


DPRa 

/ 
DPCF 


706432 


00045 


R 


706404 


A 


706404 


00046 


R 


706324 


A 


DPCS 

/ 

UNIT 


706324 


00047 


R 


000000 


A 





00050 


R 


025000 


A 


WRTCHD 


25000 


00051 


R 


015000 


A 


RDCMD 


15000 


00052 


R 


031000 


A 


RCLCHO 


31000 
.EJECT 



/MASK FOR CHAIN HODE 



/LOAD FUNCTION AND EXECUTE. 

/LOAD DISC •< ADR, REGISTER. 

/LOAD CURRENT ADR. REGISTER. 

/LOAD WORD COUNT REGISTER. 



/SKIP ON 

/SKIP ON 

/SKIP ON 

/SKIP ON 



JOB DONE, ER.,QR 
ATTEN, FLAG, 
JOB DONE FLAG, 
ER. FLAG. 



ATTEN. 



/READ STATUS A REG, 
/READ STATUS B REG, 
/READ ADDRESS REGISTER, 

/CLEAR FUNCTION REG, 
/CLEAR STATUS REG, 

/UNIT NO, CURRENTLY UNDER TEST, 
/WRITE COMMAND. 
/READ COMMAND, 
/RECALIBRATE COMMAND, 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
u 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
n 



PAGE 



00033 R 
00054 R 
00035 R 

00056 R 

00057 R 

00060 R 

00061 R 
0W068 R 



RP15 



400000 
300000 

100000 
040000 

020000 

010000 

004000 
002000 



SRC 



00063 
00064 
00065 
00066 

00067 

00070 
00071 
00072 
00073 
00074 
00075 
00076 

00100 

00101 



R -^00 
R 7^7 
R 7%7 
R 5?00 
R 040 
R 146 
R 146 
R 146 
R 146 
R 140 
140 
101 
101 
771 



R 046 



00106 
00107 

00110 

001U 
00112 

09 U 3 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 



R 
R 
R 
R 
R 

R 
R 
R 
R 
R 
R 
R 
R 
R 
R 



000000 
707764 
707702 
100167 
620113 

000000 
206334 
741200 
600123 
146334 
206332 
703344 
620106 
750000 
600121 



A 
A 
A 
A 
A 
A 
A 
A 



000 A 

764 A 

702 A 

063 R 

106 R 

334 R 

335 R 
401 R 
356 R 

020 R 

021 R 
314 R 

276 R 

774 A 

365 R 



00102 R 100635 R 

00103 R 446363 R 

00104 R 600102 R 

00105 R 600125 R 



A 
A 
A 
R 
R 

A 
R 
A 
R 
R 
R 
A 
R 
A 
R 



RP15 

/BIT TABLt FOR ATTENTION SITS, 
81TTAB 400000 
200000 

100000 

40000 
20000 

10000 

4000 

2000 
/ 
/INITIALIZATION ROUTINE, ENTERED FROM MONITOR. 

/ 

RPINT 

EBA 
EEM 
UAC 
DAC 
DZM 
DZM 
OZ(i 
D2H 
D2M 
DZM 
4MS 
JMS 
LAW 
DAC 



/ 

RPIN, 



I 



JMS 

isz 

JHP 
JMP 



RPINT 

RPSER 

APIFLG# 

BRKFLG# 

SWIHD** 

RECFLG^ 

SYSERR 

ERWC 

RESBUF 

BUFGEN 

"TSTRUN 

RUNLEN# 

TESTl 
RUNLEN 
RPIN, I 
TERMIN 



/ 

/SERVICE ENTRANCE FROM THE MONITOR, 
RPSER 



/ 

EXIT 





EBA 
EEM 
JMS 
JMP* 



LAC 

SNA 

JMP 

DZM 

LAC 

DSR 

JMP* 

CLA 

JMP 

•EJECT 



/SERVICE ENTRANCE, 



FLAG 
EXIT 



APIFLG 

,+S 
APIFLG 

ACSAVE# 

RPSER 
,-3 



/ROUTINE FOR EXIT TO THE MONITOR, 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

PAGE 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



i 




RP15 


SRC 


RP15 












/TERMINATION ROUTINE, 


0H125 


R 


200020 


R 


TERMIN 


LAC 


SYSERR 


m\26 


R 


741200 


A 




ShJA 


/TERMINATE ROUTINE, 


00127 


R 


140021 


R 




DZM 


ERWC 


0kJl»i0 


R 


777774 


A 




LAW 


-4 


00131 


R 


«40020 


R 




OAC 


SYSERR 


«ai32 


R 


146335 


R 




DZH 


BRKFLG 


«0133 


R 


400046 


R 




XCT 


DPCS 


00134 


R 


400045 


R 




XCT 


DPCF 


BUI 35 


R 


100113 


R 




JHS 


EXIT 


00136 


R 


740040 


A 


y 


HLT 












/ 

/MONITOR EXIT 


ROUTINE ^ EXPECTS FLAG DRIVEN RETURN, 


00137 


R 


000000 


A 


MDNEXT 







00140 


R 


146335 


R 




DZM 


BRKFLG 


00141 


R 


100113 


R 




JMS 


EXIT 


00142 


R 


620137 


R 


/ 

/BREAK 

/ 

BRKEXT 


JPlP* 


MONEXT 










EXIT TO 


THE MONITOR, 


00143 


R 


000000 


A 







00144 


R 


200020 


R 




LAC 


SYSERR 


mi45 


R 


7 40200 


A 




SZA 




00146 


R 


600152 


R 




JMP 


.+4 


00147 


R 


140021 


R 




DZH 


ERWC 


00150 


R 


77777i 


A 




LAW 


"5 


00151 


R 


741000 


A 




SKP 




00152 


R 


77777S 


A 




LAW 


-2 


00153 


R 


040020 


R 




DAC 


SYSERR 


00154 


R 


777777 


A 




LAW 


-1 


00155 


R 


046335 


R 




DAC 


BRKFLG 


00156 


R 


100113 


R 




JMS 


EXIT 


00157 


R 


620143 


R 


/ 

/HOUD J 
/ 

HOLQ 


JMP* 


BRKEXT 










SUBROUTINE, HOLD ON OPTION SWITCH SET, 


00ie0 


R 


000000 


A 







misx 


R 


750004 


A 




LAS 




00162 


R 


500010 


R 




AND 


UOD3W+10 


001S3 


R 


741200 


A 




SNA 




00l!:)4 


R 


620160 


R 




JMP* 


HOLD 


014165 


R 


100143 


R 




JMS 


BRKEXT 


00166 


R 


600161 


R 




JMP 
.EJECT 


,-3 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



n 



u 
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RP15 


SRC 


RP15 




o 


























/FLAG 

/ 

FLAG 


CHECK ROUTINE USE 


o 


01'] 167 


R 


300000 


A 









00170 


R 


046332 


R 




DAC 


ACSAVE 




0ai71 


R 


206405 


R 




LAC 


(400000 


o 


00172 


R 


705501 


A 




SPI 






00173 


R 


600223 


R 




JMP 


APIOFF 




00174 


R 


777777 


A 




LAW 


-1 


o 


0M175 


R 


PI46334 


R 




DAC 


APIFLG 




00176 


R 


400036 


R 




XCT 


DPSF 




00177 


R 


600631 


R 




JMP 


ERl 


o 










/ 








00200 


R 


400042 


R 


FLAG! 


XCT 


DPR3A 




00201 


R 


046374 


R 




DAC 


STATAW 


o 


00202 


R 


400043 


R 




XCT 


DPRSB 




00203 


R 


046375 


R 




DAC 


STATBii* 




00204 


R 


400044 


R 




XCT 


DPRA 


o 


00205 


R 


046333 


R 




DAC 


AORREG# 




00206 


R 


146335 


R 




DZM 


BRKFLG 




00207 


R 


206356 


R 




LAC 


RECFLG 


o 


00210 


R 


740200 


A 




SZA 




^-^ 


00211 


R 


620167 


R 




JMP* 


FLAG 




00212 


R 


206401 


R 




LAC 


SWIND 


o 


00213 


R 


740200 


A 




SZA 






00214 


R 


600376 


R 




JMP 


ER4,2 




00215 


R 


400041 


R 




XCT 


DPSE 


o 


00216 


R 


741000 


A 




SKP 






00217 


R 


600264 


R 




JMP 


ER4 




00220 


R 


400046 


R 


FLAG2 


XCT 


DPCS 


o 


00221 


R 


400045 


R 




XCT 


OPCF 




00222 


R 


620167 


R 


/ 

APIOFF 


JMP* 


FLAG 


o 


00223 


R 


400036 


R 


XCT 


DPSF 




00224 


R 


741000 


A 




SKP 






00225 


R 


600200 


R 




JMP 


FLAGl 


o 


00226 


R 


206335 


R 




LAC 


BRKFLG 




00227 


R 


741200 


A 




SNA 






00230 


R 


600236 


R 




JMP 


.+6 


o 


00231 


R 


200020 


R 




LAC 


SYSERR 




00232 


R 


740200 


A 




S2A 






00233 


R 


600236 


R 




JMP 


,+3 


o 


00234 


R 


146335 


R 




DZH 


BRKFLG 




00235 


R 


620167 


R 




JMP* 


FLAG 




00236 


R 


7 50001 


A 




CLC 




o 


00237 


R 


620106 


R 




J HP* 
,t"JECT 


RPSER 


o 
















o 


' 














o 
















o 
















n 

















ON RETURN FROM MONITOR, 



o 

o 
o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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RP15 SRC 



RP15 I 

/ERROR ROUTINES. 

/ERROR 2, BLOCK NUMBER ERROR AFTER READ BACK KROM DISC, 



0W240 


R 


046343 


R 


ER2 


DAC 


ER2TMP« 




0^1241 


R 


906406 


R 




LAC 


C2) 




00242 


R 


100575 


R 




JMS 


RESPUT 




00243 


R 


\^^A72 


R 




JMS 


STATUS 




00244 


R 


201332 


R 




LAC 


BUFFER 




00245 


R 


1.00615 


R 




JMS 


PUT 




00246 


R 


206343 


R 




LAC 


ER2TMP 




00247 


R 


UJP:I615 


R 




JMS 


PUT 




00250 


R 


10f?622 


R 




JMS 


ENDPUT 




00251 


R 


621253 


R 


J 


JMP* 


CHKSUM 












f 

/ERROR 


3, SUM 


CHECK ERROR AFTER READ BACK FROM DISC, 


«il252 


R 


046343 


R 


ER3 


DAC 


ER2TMP 




01^25:5 


R 


206407 


R 




LAC 


(3) 




00254 


R 


100575 


R 




JMS 


RESPUT 




00255 


R 


100472 


R 




JMS 


STATUS 




0y256 


R 


206343 


R 




LAC 


ER2TMP 




0W257 


R 


100615 


R 




JMS 


PUT 




01^260 


R 


906331 


R 




LAC 


BUFFEK+BUFSIZ-l 




0M261 


R 


100615 


R 




JMS 
/ 

JMS 


PUT 




0W262 


R 


100622 


R 




ENDPUT 




M0263 


R 


621253 


R 




JMP* 
.EJECT 


CHKSUM 





o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

u 

o 
o 

o 
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00264 
00265 
00266 
0H267 
00270 

0fe)271 

0W272 

00273 
00274 
80275 
00276 
00277 

00300 
00301 

«0302 
00303 
00304 
0e3fe)5 
00306 
00307 
00310 
003U 
00312 
K0313 
00314 
00315 
00316 
00317 
00320 
00321 
00322 
00323 

00324 
00325 
00326 

00327 
00330 
00331 
00332 
00333 

00334 
00335 
00336 



RP15 



R 400045 

R 400046 

R 2064 10 

R 100575 

R 206374 

R 100615 

R 206375 

R 100615 

R 206333 

R 100615 

R 100622 

R 206376 

R 506411 

R 741200 
R 600305 
R 100544 

R 62i^77? 
R 777777 
H 046373 
R 046353 
R 206375 
R 506412 
R 740200 
R 600327 
R 206374 
R 506413 
R 740200 
R 600334 
R 206375 
R 306414 
R 741200 
R 600220 

R 206414 
R 046402 
R 600337 

R 206412 
R 046402 
R 146373 
R 146353 

R 600337 

R 206413 
R 046402 
R 146363 



K 
R 
R 
R 
R 

R 
R 
R 
R 
R 
R 
R 
R 
A 
R 
R 
R 
A 
R 
R 
R 
R 
A 
R 
R 
R 
A 
R 
R 
R 
A 
R 

R 
R 
R 

R 
R 
R 
R 
R 

R 
R 
R 



SRC RPiS 

/ERROR 4, ALU OTHER STATUS ERRORS FROM THE DISC AFTER AN OPERATION, 
/ 

ER4 



ER4,l 



ER4.7 



XCT 

XCT 

LAC 

JMS 

LAC 

JMS 

LAC 

JHS 

LAC 

JMS 

JMS 

LAC 

AND 

SNA 

JMP 

JMS 

JMP* 

LAN 

DAC 

DAC 

LAC 

AND 

SZA 

JMP 

LAC 

AND 

SZA 

JMP 

LAC 

AND 

SNA 

JMP 

/ 

LAC 

OAC 

JMP 

/ 

LAC 

DAC 

DZH 

DZM 

JMP 

/ 

LAC 
DAC 
DZM 
.EJECT 



PPCF 

DPCS 

(4) 

RESPUT 

STATA 

PUT 

STAT8 

PUT 

ADRREG 

PUT 

ENDPUT 

STATS 

(1000) 

,+3 

DELUNT 

TSTUNT 

-I 

STABFG^ 

PARIND^ 

STATB 

C403 

ER4,1 
STATA 
C20) 

ER4.7 
STATB 
C143 

FLAG2 

C143 

TRYMSK# 

ER4,6 

C40) 

TRYMSK 
STABFG 
PARIND 
ER4,6 

C20) 

TRYMSK 

PARINP 



/SELECTED UNIT UNSAFE? 



/YES, DELETE UNIT 



/SET FLAG FOR STATUS fA» OR 'B? IN ERROR DETECTION 



/FORMAT ERROR? 



/HDR NOT FOUND? 



/CHECK FOR PARITY ERRORS 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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7 




RP15 


SRC 


RP15 




00337 


R 


mm 


A 


ER4.6 LAW 


«5 


00340 


R 


046401 


R 


DAC 


SWIND 


00341 


R 


046345 


R 


OAC 


FMTERCW 


01-1342 


R 


140020 


R 


DZM 


SYSERR 


00343 


R 


146344 


R 


13 ZM 


FMERCT^* 


0M344 


R 


206374 


R 


LAC 


STATA 


(50345 


R 


046371 


R 


DAC 


SSTATA^ 


00346 


R 


206375 


R 


LAC 


STATB 


00347 


R 


046372 


R 


DAC 


3STATe#* 


00330 


R 


206333 


R 


LAC 


ADRREG 


00351 


R 


046364 


R 


DAC 


SaVAOR# 


00352 


R 


200021 


R 


LAC 


ERHC 


00353 


R 


046365 


R 


DAC 


SAVEWC** 


00354 


R 


200137 


R 


LAC 


MPNEXT 


BW3D5 


R 


046370 


R 


DAC 


SMNEXT*^ 


00356 


R 


200U3 


R 


LAC 


EXIT 


00357 


R 


046400 


R 


DAC 


SVEXIT# 


00360 


R 


206353 


R 


LAC 


PARINO 


00361 


R 


740200 


A 


SZA 




00362 


R 


600457 


R 


J MP 

f 

ER4,3 JHS 

f 

ER4,,4 LAC 


ER4.13 


00363 


R 


100502 


R 


RECAL 


00364 


R 


206361 


R 


RED.l 


00365 


R 


400033 


R 


XCT 


DPLA 


00366 


R 


206404 


R 


LAC 


WCi 


00367 


R 


400035 


R 


XCT 


DPWC 


00370 


R 


206341 


R 


LAC 


CA.l 


00371 


R 


400034 


R 


XCT 


DPCA 


00372 


R 


206371 


R 


LAC 


SSTATA 


00373 


R 


506415 


R 


AND 


C777000) 


00374 


R 


400032 


R 


XCT 


DPLF 


00375 


R 


100137 


R 


JM3 

/ 

ER4,2 LAC 


MONEXT 


00376 


R 


206353 


R 


PAR I NO 


00377 


R 


4000 46 


R 


XCT 


ORGS 


00400 


R 


740200 


A 


SZA 




00401 


R 


600450 


R 


JMP 


ER4,12 


00402 


R 


206373 


R 


LAC 


STABFG 


00403 


R 


741200 


A 


SNA 




00404 


R 


600407 


R 


JMP 


ER4,9 


00405 


R 


206374 


R 


LAC 


STATA 


0id406 


R 


741009 


A 


SKP 




00407 


R 


296375 


R 


£R4,9 LAC 


STATS 


0041';i 


R 


506402 


R 


AND 


TRYMSK 


00411 


R 


741200 


A 


SNA 




00412 


R 


600417 


R 


JMP 


,+5 


00413 


R 


446344 


R 


ISZ 


FMERCT 


00414 


R 


446345 


R 


ISZ 


FMTERC 


00415 


R 


600363 


R 


JMP 


ER4,3 


00416 


R 


600421 


R 


JHP 
.aJECT 


ER4.10 



( 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
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RP15 




00417 


R 


446345 


R 




6)0420 


R 


600364 


R 















00421 


R 


100502 


R 




0M422 


R 


206370 


R 


o 


HW423 


R 


040137 


R 




«M424 


R 


206400 


R 




0a42S 


R 


040113 


R 


o 


0)0426 


R 


206365 


R 




00427 


R 


040021 


R 




M0430 


R 


mm 


A 


o 


W0431 


R 


040020 


R 




00432 


R 


206344 


R 




00433 


R 


744020 


A 


o 


0M434 


R 


742020 


A 




00435 


R 


740020 


A 




00436 


R 


840022 


R 


o 


00437 


R 


040022 


R 




00440 


R 


I464rai 


R 




0i(1441 


R 


600220 


R 


o 


00442 


R 


100502 


R 




0(3443 


R 


600220 


R 


o 


00444 


R 


206371 


R 




06)445 


R 


506415 


R 




00446 


R 


400032 


R 


o 


00447 


R 


100137 


R 




00450 


R 


206375 


R 




004S1 


R 


506402 


R 


o 


00452 


R 


740200 


A 




00453 


R 


446344 


R 




00454 


R 


446345 


R 


o 


00455 


R 


741000 


A 




80456 


R 


600421 


R 


o 


00457 


R 


206361 


R 




00460 


R 


400033 


R 




00461 


R 


206'^04 


R 


o 


00462 


R 


400033 


R 




004S3 


R 


206341 


R 




00464 


R 


400034 


R 


o 


00465 


R 


600444 


R 













o 










o 










o 





















o 











SRC RP15 



ER4,10 



ER4,5 



ER4.U 



ER4,12 



ER4,13 



1%1 


FHTERC 


JMP 


ER4.4 


/ 

JMS 


RECAL 


LAC 


ShNEXT 


OAC 


MQNEXT 


LAC 


SVEXIT 


DAC 


EXIT 


UAC 


sSAve^c 


DAC 


ERWC 


UAW 


-1 


DAC 


SYSERR 


LAC 


FHERCT 


RCR 




RTR 




RAR 




XOR 


ERCODE 


DAC 


ERCODE 


DZM 


SWIND 


JHP 


FLAG2 


jns 


RECAL 


JHP 


FLAG2 


/ 




LAC 


SSTATA 


AND 


i,m%m') 


XCT 


DPLF 


JMS 


MQNEXT 


LAC 


STATB 


AND 


TRYMSK 


SZA 




ISZ 


FMERCT 


ISZ 


FMTERC 


SKP 




JMP 


ER4aia 


/ 




LAC 


RED,! 


XCT 


DPLA 


LAC 


wca 


XCT 


OPWC 


LAC 


CA,1 


XCT 


OPCA 


JMP 


eR4,ll 


.EJECT 





o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 



9 




RP16 


SRC 


RPl 

/ 

7£RR0R 
/ 

ER5 


5 

tj, NO 


MORE UNITS 


00466 
0H467 
0047B 
00471 


R 
R 
R 
R 


206416 
1 y PI 5 7 
1B0622 
600125 


R 
R 
R 
R 


LAC 
JMS 
JMS 
JMP 


C5) 

RESPUT 
ENDPUT 
TERM IN 










/STATUS 


PUT 


AWAY ROUTINE 


00472 
00473 
00474 

00475 
00476 
00477 
0050ei 
005(31 


R 
R 
R 

R 
R 
R 
R 
R 


000000 

206374 
1W0615 
206375 
IB0615 
2«6333 
100615 
620472 


A 
R 
R 

H 
R 
R 
R 
R 


STATUS 




LAC 

JMS 

LAC 
JMS 
LAC 
JMS 
JMP* 


STATA 

PUT 

STATB 

PUT 

ADRREG 

PUT 

STATUS 



LEFT FOR TEST, 



FOR ERRORS, 



.EJECT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

u 

o 
o 

o 
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130502 R 

00503 R 

00504 R 

00505 R 

00506 R 

00507 R 
R051PI R 

00511 R 

00512 R 

00513 R 

00514 R 

00515 R 

00516 R 

00517 R 

00520 R 

00521 R 

00522 R 

00523 R 

00524 R 

00525 R 

00526 R 

00527 R 

00530 R 

00531 R 

00532 R 

00533 R 

00534 R 

00535 R 

00536 R 

00537 R 

00540 R 

00541 R 



RP15 



000000 

mm 

046356 
400046 
400045 

^06403 
346417 
046360 
760000 
046357 
200052 
340047 
400032 
100143 
400042 
046374 

400044 
046333 
400043 
046375 
526360 

740200 
600534 
446357 
600517 
600540 
206375 
740020 
740400 
600542 
100544 
620777 



SRC RP15 

/RECALIBRATE 
/ 



00544 
00545 
00546 
00547 
00550 
00551 
00552 
00553 
00554 
00555 
00556 
00557 



R 000 
R 100 
R 296 
R 346 
R P146 
R 1.66 
R 750 
R 346 
R 046 
R 741 
R 600 



R 620 



0M542 R 146356 R 
00543 R 620502 R 



000 A 
560 R 
403 R 
420 R 
342 R 
342 R 

001 A 
346 R 
346 R 
200 A 
466 R 
544 R 



RECAL 



RECA.l 



RECA.2 



a 

LAW 
DAC 
XCT 
XCT 
LAC 
TAD 
DAC 
LAW 
DAC 
LAC 
TAD 
XCT 

Jhs 

XCT 
DAC 

XCT 

DAC 

XCT 

DAC 

AND* 

SZA 

JMP 

IS2 

JMP 

JMP 

LAC 

RAR 

SNL 

JMP 

JMS 

JMP* 

/ 

DZM 

JHP* 



ROUTINE AFTER A FORMAT ERROR, ETC. 



RECFLG 

DPCS 

DPCF 

UNNUM6# 

(BITTAB3 

REC,2*^ 

RECa# 

RCLCMD 

UNIT 

DPLF 

8RKEXT 

DPRSA 

STATA 

OPRA 
AORREG 
DPRS8 
STATB 
R EC • 2 

,+4 

RECl 

RECA.l 

,+5 

STATB 



RECA,2 
DELUNT 
TSTUNT 

RECFLG 
RECAL 



/DELETE THIS UNIT BECAUSE OF UNRECOVERABLE ERROR SUCH AS 

/UNIT UNSAFE, ETC. 

/ 

DELUNT 

JMS ER6 

LAC UHNUMS 

TAD (ACTIVE) 

DAC DEL.l** 

DZM* DEL,! 

CLC 

TAD NUMUNT 

DAC NUMUNT 

SNA 

JMP ER5 

JMP* DELUNT 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 

o 



o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



n 



o 
o 
o 
o 
o 
o 
o 

o 
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RP15 SRC 



RP15 



itJECT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
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o 



o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 











/ERROR 

/ 

ER6 


6, THIS 


UNIT IS BEING DELETED. 


00560 


R 


P100000 


A 







B0561 


R 


206421 


R 




lAC 


C63 


00562 


R 


100575 


R 




JMS 


RESPUT 


0a5o3 


R 


206403 


K 




LAC 


UNNUM6 


0(3564 


R 


100615 


R 




JMS 


PUT 


0fc!565 


R 


206374 


K 




UAC 


STATA 


054566 


R 


100615 


R 




JMS 


PUT 


00567 


R 


206375 


R 




UAC 


STATB 


00570 


R 


100615 


R 




JMS 


PUT 


00571 


R 


206333 


R 




UAC 


ADRREG 


00572 


R 


100615 


R 




JHS 


PUT 


00573 


R 


100622 


R 




JMS 


ENDPUT 


0M574 


R 


620560 


R 




JMP* 


f:r6 










/RESET 

/ 

RESPUT 


ERROR PUT AWAY ROUTINE, 


00575 


R 


000000 


A 







00576 


R 


046362 


R 




DAC 


RESTMPW 


00577 


R 


200020 


R 




LAC 


SYSERR 


00600 


R 


741200 


A 




SNA 




006(n 


R 


600605 


R 




JMP 


RESP,2 


00602 


R 


546422 


R 




SAD 


c-n 


00603 


R 


600613 


K 




JMP 


RESP.l 


0!a604 


R 


740040 


A 


/ 

RESP,2 


HLT 




W0605 


R 


206362 


R 


LAC 


RESTMP 


00606 


R 


040022 


R 




DAC 


ERCODE 


0W607 


R 


206423 


R 




LAC 


CERCODE+1 


086U1 


R 


046354 


R 




DAC 


PUT.l 


00611 


R 


146355 


R 




02M 


PUT, 2 


00612 


R 


620576 


R 


/ 

RESP.l 


JMP* 


RESPUT 


00613 


R 


100143 


R 


JMS 


8RKEXT 


00614 


R 


600605 


R 


J 


JMP 


RESP.2 










/ 

/PUTAWAY ROUTINE FOR ERROR P RAMETERS 


00615 


R 


000000 


A 


PUT 







00616 


R 


066354 


R 




DAC* 


PUT, Iff 


00617 


R 


4463S4 


R 




ISZ 


PUT.l 


00620 


R 


446355 


R 




ISZ 


PUT,2*J 


00621 


R 


620615 


R 




JMP* 
.EJECT 


PUT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 






o 








o 
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RP15 


o 


00622 
0id623 
H«624 


R 
R 
R 


CT00wi'iy 

206355 
7 40001 



SRC RP15 

/END PUT AWAY ROUTINE 

/ 

A ENPPUT a 

R LAC PUT, 2 

A CMA 

O 00625 R 040021 R DAC ERWC 

00626 R mm A LAW -1 

00627 R (?I4F)02M R DAC SYSERR 
O 00630 R 62M622 R JMP* ENOPUT 

/ 

/ERROR 1 - ERROR ROUTINE FDR API ERROR, 

O / 

00631 R 206424 R ERl LAC CD 

00632 R 10057S R JfiS RESPUT 
O 00633 R 100622 R JMS ENDPUT 

00634 R 600125 R JMP TERMIN 

/ 

O f 



O 00635 R 000000 A TESTl 

00636 R 100643 R JMS ONLIN 

00637 R 100742 R JMS SETNXT 
O 00640 R 620635 R JMP* TESTl 

00641 R 100777 R JMS TSTUNT 

00642 R 600637 R JMP ,"3 

O ' 

/ON - LINE SUBROUTINE, 
/ 

O 00643 R 000000 A ONLIN 

00644 R 100160 R JMS HOLD 

00645 R 400045 R XCT DPCF 
O 00646 R 400046 R XCT OPCS 

00647 R 146347 R DZM ONL.l** 

00630 R 146346 R O'ZM NUMUNT^ 

O 00651 R 286420 R LAC (ACTIVE) 

00652 R 046350 R DAC 0NL,2« 

00653 R nm^ A LAW -10 

O 00654 R 046351 R DAC UNL.3# 

00655 R 7S0001 A CLC 

00656 R 066350 R 0NLI,1 DAC* 0NL.2 
O 00657 R 446350 R ISZ 0NL,2 
^ 00660 R 446351 R ISZ 0NL,3 

00661 R 600656 R JMP 0NLI,1 

O 00662 R 206420 R LAC (ACTIVE) 

00663 R 046350 R PAC 0NL,2 

00664 R 206347 R 0NLI,2 LAC 0NL,1 
O 00665 R 600714 R JMP QNL.4 



o 
o 
o 
o 



/TEST 1 - CHECK EACH OF THE MAJOR FUNCTIONAL ELEMENTS OF EACH UNIT, 
/ 



.EJECT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 

o 



( ) 
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o 
o 



o 



u 



o 
o 



00666 R mm^HB A CHKDNl a 

00667 R 4&m'i2 R XCT DPLF 
006/0 R 77777A A LAW -4 
6)0671 R C146351 R DAC QNL,3 



00672 R 446351 R I3Z QNU.S 

Q 0W673 R 600672 R JMP «-l 

00674 R 4MMfc42 R XCT DPR3A 

0iil675 R 50642S R AND (10) /WRITE PROTECTED? 

n 013676 R 7402fcife1 A SZA 

00677 R 620666 R JMP* CHKONL /YES 



00705 R 740020 A RAR /NOT READY, CHECK FOR SEEK UNDERWAY 

00706 R 741400 A 5ZL 



O Bii7^7 R 600711 R 



00710 R 62(3666 R JMP* CHKONL 

06J711 R 440666 R ISZ CHKONL, 

0H712 R 440666 R ISZ CHKONL 

M0713 R 620666 R JMP* CHKONL 

/ 

O 00714 R 100666 R QNL.4 JMS CHKONL 

0fei7l5 R 166550 R DZM* DNL.2 /ELIMINATE UNIT 

00716 R 741000 A SKP 

Q 00717 R 446346 R ISZ NUMUNT 

00720 R 446350 R ISZ 0NL,2 

00721 R 206347 R LAC ONL.l 

O 0fe)722 R 346486 R TAD Cl000i30) 

00723 R 046347 R DAC QNL,1 

00724 R 74&2m A SZA 

O 00725 R 6051714 R JMP 0NL,4 

00726 R 206346 R LAC NUMUNT 



053735 R 750001 A CLC 

O B0736 R 046403 R DAC UNNUMB 

00737 R P06430 R LAC (ACTIVE-!) 

00740 R 5(46366 R DAC SET.1# 

O 00741 R 620643 R JMP* ONLIN 

.EJECT 

o 
o 
o 
o 



u 



u 
o 
o 
o 
o 
o 



00700 R 4(30043 R XCT DPRS8 /CHECK UNIT READY 

O 0I37«1 R 74002fe5 A RAR 

00702 R 741400 A SZL 

0M703 R 74100I<1 A SKP 

00704 R 6m7Xl R JMP .t5 /YES U 



JMP ,+2 /UNDERWAY SO OK TO PUT IN TABLt O 



o 



o 
o 
o 
o 



00727 R 741201(3 A SNA „ ,, ,-^ 

m7M) R 600466 R JMP ER5 /NO MORE UNITS O 

0fJ73l R 777767 A LAW -U 

00732 R M46367 R DAC SET.2<* 

00733 R 2(>)6427 R LAC (700000) U 

00734 R <iiAmA7 R DAC UNIT 



O 
O 
O 
O 

o 

o 

o 



u 
















o 
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RP15 


SRC 


RP15 












/SET NEXT UNIT 


SUBROUTINI 


o 


00742 


R 


000000 


A 


f 

SETNXT 







Vw^ 


00743 


R 


206346 


R 




LAC 


NUMUNT 




00744 


R 


741200 


A 




SNA 




o 


0M745 


R 


600466 


R 




JMP 


ER5 




007 46 


R 


446367 


R 


SETN,! 


ISZ 


SET. 2 




007 47 


R 


741000 


A 




SKP 




o 


00751?! 


R 


620742 


R 




JMP* 


SETNXT 




00751 


R 


446366 


R 




ISZ 


SET, I 




m7S2 


R 


200047 


R 




LAC 


UNIT 


o 


0B753 


R 


346426 


R 




TAD 


(100000) 




00754 


R 


040047 


R 




DAC 


UNIT 




00755 


R 


446403 


R 




ISZ 


UNNUMB 


o 


00756 


R 


740000 


A 




NOP 






00757 


R 


226366 


R 




UAC* 


SET.l 




00760 


R 


741200 


A 




SNA 




o 


00761 


R 


600746 


R 




JMP 


SETN.l 




00762 


R 


200047 


R 




LAC 


UNIT 




00763 


R 


100666 


R 




JMS 


CHKUNL 


o 


mvoA 


R 


600767 


R 




JMP 


,+3 




00765 


R 


740000 


A 




NOP 






0^766 


R 


600775 


R 




JMP 


SETN.2 


o 


00767 


R 


166366 


R 




OZM* 


SET.l 




l')<r/7^ 


R 


100560 


R 




JMS 


ER6 




00771 


R 


750001 


A 




CLC 




o 


00772 


R 


346346 


R 




TAD 


NUMUNT 




00773 


R 


046346 


R 




DAC 


NUMUNT 




00774 


R 


600744 


R 




JMP 


SETNXT+2 


o 


B0775 


R 


440742 


R 


SETN,2 


ISZ 


SETNXT 


Vw' 


00776 


R 


620742 


R 


/ 
/TEST 1 

/ 
T3TUNT 


JMP* 


SETNXT 


o 










JNIT BY 


CYLINOERi 




mi777 


R 


000000 


A 







o 


01000 


R 


101047 


R 




JMS 


WRTSEC 


T^— ^ 


01001 


R 


17771% 


A 




LAW 


"'IS 




01002 


R 


046352 


R 




DAC 


OPRCNT# 


o 


01003 


R 


101106 


R 




JMS 


CHKSEC 


^•^ 


01004 


R 


446352 


R 




ISZ 


OPRCNT 




01005 


R 


601003 


R 




JHP 


."2 


o 


0U106 


R 


101033 


R 




JMS 


WRTHD 


01007 


R 


77777^ 


A 




LAW 


-10 




01010 


R 


046352 


R 




DAC 


QPRCNT 


o 


01011 


R 


101072 


R 




JMS 


CHKHD 


01012 


R 


446352 


R 




ISZ 


OPRCNT 




01013 


R 


601011 


R 




JMP 


.-2 


o 


1014 


R 


101017 


R 




JMS 


WRTCYL 




01015 


R 


10105S 


R 




JMS 


CHKCYL 




01016 


R 


%Z%777 


R 




JMP* 


TSTUNT 


o 












.EJECT 




o 

































o 

















o 
o 
o 
o 

o 
o 

o 
o 
o 

/UNITS NO LONGER UN LINE 

o 
o 

HEAD AND SECTOR, O 

o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
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O 



(J 

o 



/WRITE CYLINDER ROUTINE, 
/ 

Q 0un7 R m*^m& a wktcyu O 

0102H R 141024 R DZH WRTC.i+3 

K1021 R 101U5 R WRTCl JH3 WRITE 

O 01022 R 773000 A "SEqSIZ O 

01023 R 001332 R BUFFER 

01(324 R 000000 A 

O 01025 R 201024 R LAC ,-1 O 

01026 R 346431 R TAD C2000) 

01027 R P)41024 R DAC ,-3 

O 01030 R 946432 R SaO C626000) (J 

01031 R 621017 R JMP* WRTCYL 

01032 R 601021 R JMP WRTD.l 

o ^ o 

/WRITE HEAD RQUTINE, 

O 01033 R r-100000 A WRTHD O 

01034 R 141040 R DZM HRTH.1+3 

01035 R 101115 R WRTH.l JMS NRITE 

O 01036 R 77-i?im A "SECSIZ O 

^ 01037 R 001332 R BUFFER 

01040 R 1^00000 A 

O 01041 R 2011040 R LAC ,-1 O 

01042 R 346412 R TAD C40) 

01043 R 041040 R DAC ,-3 

O 01044 R S46433 R SAD (1200) O 

01045 R 621033 R JMP* WRTHD 

01046 R 601035 R JhP WRTH.l 

o ^ o 

/WRITE SECTOR ROUTINE, 

O 01047 R r^000ra0 A WRTSEC O 

01050 R 141054 R DZH WRTS,l+3 

01051 R 101115 R WRTS.l JMS WRITE 

O 01052 R 773000 A -SECSIZ O 

01053 R 001332 R SUFFER 

01054 R 000000 A 

O 01055 R 621047 R JMP* WRTSEC O 

.EJECT 



o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 

o 



o 
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O .„acK CVUINOER «OUTXNE. 

/ 

O 01056 R WiaHMWa A CHKCYU M 

01057 R 141063 R DZH CHKC,lt3 

Riei60 R 101142 R CHKC.l JdS READ 

O 01061 R 773000 A "SECSIZ 

01062 R P)0i332 R BUFFER 

01!a63 R 300^00 A 

O 01084 R 201H63 R LAC ."1 

01065 R 346431 R TAD (2000) 

P11066 R «41BB3 R DAC ."3 

O 01067 R 54643a R SAD (6260003 

01070 R 621056 R JHP* CHKCYL 

01071 R 60106k! R JMP CHKq.l 

O / 

/CHECK HEAO ROUTINE, 
/ 

O 01^172 R mm)m) A cmkhd 

ei073 R 141077 R OZM CHKH.l+3 

0U'174 R 101142 R CHKH,l JMS READ 

O 01075 R 77300fi! A -SECSIZ 

01076 R 0M1338 R BUFFER 

01077 R 000;i)0B A 

O 01100 R 201077 R LAC ,"1 

01101 R 346412 R TAD (40) 

01102 R S141077 R DAC ."S 

O 01103 R 546433 R SAO (1200) 

01ia4 R 621072 R JMP* CHKHD 

01105 R 601074 R JMP CHKH.l 

o ^ 

/CHECK SECTOR ROUTINE, 
/ 

Q 01106 R 000000 A CHK3EC 

01107 R 14U13 R OZM CHKS,l + 3 

0U10 R 101142 R CHKS.l JMS READ 

O »nil R 773000 A "SECSIZ 

01112 R 001332 R BUFFER 

01113 R 000000 A 

O 01114 R 62U06 R JHP* CHKSEC 

.EJECT 

o 
o 
o 
o 
o 
o 

o 



o 

o 

O j 

O : 

o 

I 
u ' 

o ! 

i 
O : 

O 

o 1 
o 

O ! 

o 
o 
o 
o I 

i 
O i 

I 

o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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0U15 
01U6 
01U7 

01121 
01122 
01123 
0U24 
01125 
01126 
01127 

01130 

01131 
01132 
01133 
01134 
01135 
01136 
01137 
K1140 
0U4i 



01142 
01143 
01144 
01145 
01146 
01147 
01150 
01151 

Hn52 
01153 
01154 
01155 
01156 
01157 
Ml 160 
01161 
01162 
01163 
01164 
01165 
01166 



R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 



RP15 



000000 

101276 
221U5 
400035 
f/|464B4 
441115 
22U15 
400034 
046341 
441115 
221115 
400033 
046361 
101236 
441115 
100160 
200050 
340047 
400032 
100137 
S21U5 



SRC 



RP15 



000000 

221142 
400035 
046404 
441142 
221142 
400034 
046341 
441142 
221142 
400033 
046361 
44 1142 

100160 

200051 
340047 
400032 
100137 
206361 
101253 
621142 



A 
R 
R 

R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 

R 
R 
R 
R 
R 
R 
R 



/WRITE 

/ 

WRITE 



SUBROUTINE, 



/ 
/ 

/READ 
/ 

READ 





JMS 

LAC* 

XCT 

DAC 

ISZ 

LAC* 

XCT 

DAC 

ISZ 

LAC* 

XCT 

DAC 

JMS 

ISZ 

JMS 

LAC 

TAD 

XCT 

JMS 

JMP* 



8UFGEN 

WRITE 

DPWC 

WC.l 

WRITE 

WRITE 

DPCA 

CA,1 

WRITE 

WRITE 

DPLA 

RED.l 

SUMCHK 

WRITE 

HOLD 

WRTCMD 

UNIT 

DPLF 

MONEXT 

WRITE 



SUBROUTINE. 





LAC* 

XCT 

DAC 

ISZ 

LAC* 

XCT 

DAC 

ISZ 

LAC* 

XCT 

DAC 

ISZ 

JMS 

LAC 

TAD 

XCT 

JMS 

LAC 

JMS 

JMP* 

,eJEC" 



READ 

DPWC 

WC.1« 

READ 

READ 

DPCA 

CA,1** 

READ 

READ 

DPLA 

RED.l^ 

READ 

HOLD 

RDCMD 

UNIT 

DPLF 

MONEXT 

RED.l 

CHKSUM 

READ 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
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I ; 



O 



O 

o 
o 
o 
o 

o 



o 

/RANDOM NUMBER GENERATOR ROUTINE 



/ 

O 01167 R mmtfiVi A RANGEN 

«1170 R ?i31225 R LAC RANDEX 

0U71 R 346434 R TAD (-RANTBL-18] 

O B1172 R 741100 A SPA 

01173 R 6iaigM3 R JMP RANTAD-1 

01174 R 206435 R LAC CRANTBL3 

O 0117S R 041225 R DAC RANDEK O 

01176 R 201224 R LAC RANCON 



o 
o 



u 



01177 R 745100 A SPAiCLL 

O 0l2Hfc) R 744002 A STL 

01201 R 740010 A RAL 

012I-52 R i?l41224 R DAC RANCON ,^ 

O Biaaa R 22122S R LAC* RANPEX O 

/ 

01204 R 341224 R RANTAO TAD RANCON 

O 012fei5 R 061225 R DAC* RANPEX O 

01206 R 441223 R ISZ RANCNT 

01207 R 601214 R JHP ,+5 

O 01210 R 366436 R TAD* (0) O 

01211 R 061225 R DAC* RANDEX 

01212 R 777^m A LAW "10(30 

O 01213 R 041223 R DAC RANCNT O 

01214 R 2«1222 R LAC RANSAV 



01213 R 740020 A RAR 

O 01216 R 36122S R TAD* RANQEX 

01217 R 041222 R DAC RANSAV 

01220 R 441225 R I5Z RANDEX 

O 01221 R 621167 R JHP* RANGEN 

P51222 R mmm) A RANSAV 

01223 R 777<Sm A RANCNT -1000 

o ^ 

01224 R 123456 A RANCON 123456 
611225 R {;5C31236 R RANDEX RANTBL + IW 

O 01226 R 664321 A RANTBL 654321 
01227 R 361416 A 361416 

t5l23H R f^55363 A W55363 

O 01231 R 546(;)6l'3 A 546060 

01232 R 243^35 A 243035 

01233 R 762572 A 762572 
O 01234 R 453237 A 433237 

01235 R I5n214 A 15KJ214 



II 



EJECT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



.••**>. 
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RP15 


SRC 




RPi5 




o 










/SL 
/ 

su^ 


JMCHECK GENERATION ROUTINE - 


o 


01236 


R 


flB&100i^ 


A 


1CHK 







01237 


R 


F141332 


R 






DAC 


BUFFER 




01240 


R 


77 31(3 2 


A 






UAH 


-SECSIZ+2 


o 


01241 


R 


046376 


R 






DAC 


SUM,1# 




01242 


R 


206437 


R 






LAC 


(BUFFER+n 




01243 


R 


046377 


R 






DAC 


SUM,2« 


o 


(^1244 


K 


201332 


R 






LAC 


BUFFER 


^"^ 


01245 


R 


366377 


R 






TAD* 


SUM. 2 




01246 


R 


446377 


R 






1 62 


SUM„2 


o 


H1247 


R 


446376 


R 






laz 


SUM.l 




eii250 


R 


601245 


R 






JMP 


.-3 




01251 


R 


t?l66377 


R 






DAC* 


SUM, 2 


o 


01252 


R 


621236 


R 


/c^ 




JMP* 


SUHCHK 












1ECK 


SUM CHECKING ROUTINE - 


o 










/ 










01253 


R 


C100000 


A 


CHKSUM 









01254 


R 


541332 


R 






SAO 


BUFFER 





01255 


R 


741000 


A 






SKP 






01256 


R 


60024W 


R 






JHP 


ER2 




01257 


R 


773^02 


A 






LAW 


«SECSIZ'i'2 


o 


01260 


R 


046376 


R 






DAC 


SUM.l 




ei26i 


R 


206437 


R 






LAC 


CBUFFER + U 




01262 


R 


046377 


R 






DAC 


SUM, 2 


o 


01263 


R 


201332 


R 






LAC 


SUFFER 




01264 


R 


366377 


R 






TAD* 


SUM, 2 




01265 


R 


446377 


R 






ISZ 


SUM, 2 


o 


01266 


R 


446376 


R 






ISZ 


SUM.l 




01267 


R 


601264 


R 






JMP 


.-3 




01270 


R 


740001 


A 






CMA 




o 


01271 


R 


346424 


R 






TAD 


C13 




01272 


R 


366377 


R 






TAD* 


SUM, 2 




01273 


R 


740200 


A 






SZA 




o 


01274 


R 


600252 


R 






JMP 


ER3 




01275 


R 


621253 


R 






JMP* 
.EJECT 


CHKSUM 


o 



















o 
o 
o 
o 
o 

o 



u 
o 

ON WRITE, 

o 

O 

o 
o 
o 

ON READ, 

\^ 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
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u 



o 



o 

/BUFFER RANDOM DATA GENERATION ROUTINE, 



/ 

Q 0:1276 R ?10a«t!0 A BUFGEN <A 

01277 R mim A LAW ™100 

0130P< R fl46336 R DAC f3UF,lB 

O 01301 R 101167 R BUFG.l JHS RANGEN 

013yg R 7412«0 A SNA 

01303 R 601301 R JMP BUFG.l 

O 01304 R 066337 R DAC* BUF,2# 

M13>>)5 R 446337 R ISZ BUF,2 

01306 R 44634W R ISZ 8UF,3# 

O 013^7 R 74100W A SKP 

01310 R 1«1314 R JHS RESaUF 

01311 R 446336 R ISZ BUF.l 
O 01312 R 6ai301 R JMP BUFG.l 

01313 R 621276 R JMP* BUFGEN 

/ 

O 01314 R %%m^% A RESBUF « 

01315 R 773000 A LAW ^.BUFSIZ 

01316 R 046340 R OAC BUF,3 

O 01317 R 2«6'140 R LAC (BUFFER) 

01320 R 346337 R DAC BUF,2 

01321 R 621314 k JMP* RESBUF 

O f 

01322 R A ACTIVE .BLOCK 10 

f 
O 01332 R A BUFFER .BLOCK BUFSIZ 

.EJECT 

o 
o 
o 
o 
o 
o 
o 
o 
o 



w 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



( ) 
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RPlb 


SRC 


o 






00000W 


R 






06405 


R 


400000 


A 


*L 





06406 


R 


000002 


A 


*L 


x-^ 


0^407 


R 


000003 


A 


*L 




06410 


R 


000004 


A 


*U 


o 


06411 


R 


001000 


A 


*L 




06412 


R 


000040 


A 


*l. 




06413 


R 


000023 


A 


*U 


o 


06414 


R 


C100014 


A 


*L 




06415 


R 


777mt^ 


A 


*L 




06416 


R 


0000ifl6 


A 


*l 


o 


06417 


R 


0H0053 


R 


*L 


^^w^ 


06420 


R 


001322 


R 


*l 




06421 


R 


aM0006 


A 


*L 


o 


06422 


R 


777777 


A 


• I 


^—^^ 


06423 


R 


000023 


R 


*!, 




06424 


R 


000001 


A 


*l 


o 


06425 


R 


000010 


A 


*L 




06426 


R 


100000 


A 


♦ l 




06427 


R 


700000 


A 


*L 


o 


06430 


R 


001321 


R 


*L 


06431 


R 


002000 


A 


*L 




06432 


R 


626000 


A 


*L 


o 


06433 


R 


001200 


A 


*L 




06434 


R 


776542 


R 


*L 




06435 


R 


001226 


R 


*L 


o 


06436 


R 


000000 


A 


*L 




06437 


K 


001333 


R 


*U 




06440 


R 


001332 


R 


*l 


n 






SIZE: 


506444 



HP15 



.END 



UOOSW 



NO ERROR LINES 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 



o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 


























y^ 
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SRC 


RP15 



















ACSAVE 


06332 


R 


ACTIVE 


01322 


R 


AORREG 


06333 


R 


APIFLG 


06334 


R 




APIOFF 


00223 


R 


BITTAB 


00053 


R 


BRKEXT 


00143 


R 


BRKPLG 


06335 


R 


o 


BUFFER 


01332 


R 


BUFGcN 


01276 


R 


BUFG.l 


01301 


R 


BUFSIZ 


005000 


A 




BUF.l 


06336 


R 


BUF,2 


06337 


R 


BUF,3 


06340 


R 


CA.l 


06341 


R 




CHKCYL 


01056 


R 


CHKC.l 


01060 


R 


CHKHD 


01072 


R 


CHKH.l 


01074 


R 


o 


CHKONL, 


00666 


R 


CHKSEC 


01106 


R 


CHKSUM 


01253 


R 


CHKS.l 


01110 


R 


^1-^ 


DELUNT 


00544 


R 


DEU.l 


06342 


R 


DPCA 


00034 


R 


DPCF 


00045 


R 




DPCS 


00046 


R 


DPUA 


00033 


R 


DPLF 


00032 


R 


OPRA 


00044 


R 


o 


DPRSA 


00042 


R 


DPRS9 


00043 


R 


DPSA 


00037 


R 


DPSE 


00041 


R 




DPSF 


00036 


R 


DPSJ 


00040 


R 


OPWC 


00035 


K 


EBA 


707764 


A 




EEM 


707/02 


A 


ENOPUT 


00622 


R 


ERCODE 


00022 


R 


ERWC 


00021 


R 


o 


ERl 


£30631 


R 


ER2 


00240 


R 


ER2TMP 


06343 


R 


ER3 


00252 


R 




ER4 


00264 


R 


ER4.1 


00327 


H 


ER4,10 


00421 


R 


ER4,11 


00444 


R 




ER4,12 


00450 


R 


ER4,13 


00457 


R 


ER4,2 


00376 


R 


ER4,3 


00363 


R 


o 


ER4,4 


00364 


R 


eR4,s 


00442 


R 


ER4,6 


00337 


R 


ER4.7 


00334 


R 


v.*^ 


ER4,9 


00407 


R 


ER5 


00466 


R 


ER6 


00560 


R 


EXIT 


00113 


R 




FLAG 


l')0167 


R 


FLAGl 


00200 


R 


FLAG2 


00220 


R 


FMERCT 


06344 


R 


o 


FMTERC 


06345 


R 


HOLD 


00160 


R 


MONEXT 


00137 


R 


NUMUNT 


06346 


R 


>-^ 


ONLIN 


(30643 


R 


ONLI.l 


00656 


R 


aNLI,2 


00664 


R 


QNL.l 


06347 


R 




0NL.2 


063501 


R 


0NL.3 


06351 


R 


0NL,4 


00714 


R 


OPRCNT 


06352 


R 


o 


PARIND 


06353 


R 


PUT 


00615 


R 


PUT.l 


06354 


R 


PUT, 2 


06355 


R 


RANCNT 


01223 


R 


RANCON 


01224 


R 


RANDEX 


01225 


R 


RANGEN 


01167 


R 




RANiSAV 


01222 


R 


RANTAD 


01204 


R 


RANTBL 


01226 


R 


RCLCMD 


00052 


R 


o 


RDCMD 


00051 


R 


READ 


01142 


R 


RECAL 


00S02 


R 


RECA.l 


00517 


R 


%*-' 


RECA,2 


00542 


R 


RECFLG 


06356 


R 


RECl 


06357 


R 


REC,2 


06360 


R 




RED,! 


06361 


R 


HESBUF 


01314 


R 


RESPUT 


00575 


R 


RESP.l 


00613 


R 


o 


RESP,2 


00605 


R 


RESTMP 


06362 


R 


RPINT 


00063 


R 


RPIN.l 


00102 


R 


RPSER 


00106 


R 


RUNLEN 


06363 


R 


SAVADR 


06364 


R 


SAVENC 


06365 


R 




SECSIZ 


00500PI 


A 


SETNXT 


00742 


R 


SETN.l 


00746 


R 


SETN,2 


00775 


R 


o 


SET.l 


06366 


R 


SET. 2 


06367 


R 


SMNEXT 


06370 


R 


SSTATA 


06371 


R 


^».-^ 


SSTATB 


06372 


R 


STABFG 


06373 


R 


STATA 


06374 


R 


STATQ 


06375 


R 




STATUS 


00472 


R 


SUMCHK 


01236 


R 


SUM.! 


06376 


R 


t>UM.2 


06377 


R 


o 


SVEXIT 


0640PI 


R 


SWIND 


06401 


R 


SYSERR 


00020 


R 


TERMIN 


00125 


R 


^••w^ 


TESTl 


00635 


R 


TRYMSK 


06402 


R 


TSTRUN 


000004 


A 


TSTUNT 


mm 


R 




UNIT 


00047 


R 


UNiNUMB 


06403 


R 


UQDS^/I 


00000 


R 


WC.l 


06404 


R 


o 


WRITE 


01115 


R 


WRTCMD 


0005B 


R 


WRTCYL 


01017 


R 


WRTC.l 


01021 


R 


o 
o 
o 
o 


WRTHD 


01033 


R 


WRTH.l 


01035 


R 


WRTSEC 


01047 


R 


WRTS.l 


01051 


R 


o 
o 
o 

o 



























o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
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SRC 


RP15 


















UODSW 


00000) 


R 


TSTRUN 


000004 


A 


SYSERR 


00020 


R 


ERWC 


00021 


R 


o 


ERCODE 


00M22 


R 


DPUF 


00032 


R 


DPUA 


00033 


R 


UPCA 


00034 


R 


^-v^ 


DPWC 


00035 


R 


DPSF 


00036 


R 


DPSA 


00037 


R 


PPSJ 


00040 


R 




DPSE 


00041 


R 


DPRSA 


00042 


R 


DPRSS 


000 43 


K 


UPRA 


00044 


R 


o 


OPCF 


0M045 


R 


OPCS 


00046 


R 


UNIT 


00047 


R 


WRTCMD 


00050 


R 




RDCMP 


00051 


R 


RCUCMO 


00052 


R 


aiTTAB 


00053 


R 


RPINT 


00063 


R 




RPIN,i 


00102 


R 


RPSER 


00106 


R 


EXIT 


00113 


R 


TERMXN 


00125 


R 


o 


MONEXT 


0W137 


R 


BRKEXT 


00143 


R 


HOUO 


00160 


R 


FLAG 


00167 


R 




FUAGl 


00201:^ 


R 


FLAG2 


00220 


R 


APIDFF 


00223 


R 


ER2 


00240 


R 




ER3 


00252 


R 


ER4 


00264 


R 


ER4,1 


00327 


R 


ER4,7 


00334 


R 


o 


ER4.6 


00337 


R 


ER4,3 


00363 


R 


ER4,4 


00364 


R 


ER4,2 


00376 


R 


^»— ^ 


ER4,9 


00407 


R 


ER4,10 


00421 


R 


ER4.5 


00442 


R 


ER4,11 


00444 


R 




ER4.12 


fel045o 


R 


ER4,i3 


00457 


R 


ER5 


00466 


R 


STATUS 


00472 


R 


o 


RECAL 


00502 


R 


RECA,1 


00517 


R 


RECA,2 


00542 


R 


DELUNT 


00544 


R 




ER6 


0056CT 


R 


RESPUT 


00575 


R 


RESP.2 


00605 


R 


RESP.l 


00613 


R 




PUT 


M0615 


R 


ENDPUT 


00622 


R 


ERl 


00631 


R 


TESTl 


00635 


R 


o 


QNLIN 


00643 


R 


ONLI.l 


00656 


R 


ONLUa 


00664 


R 


CHKONU 


00666 


R 


0NL.4 


dd7iA 


R 


SETNXT 


00742 


R 


SETN.l 


00746 


R 


SETN,2 


00775 


R 




TSTUNT 


mm 


R 


WRTCYL 


01017 


R 


WRTCl 


01021 


R 


WRTHD 


01033 


R 





WRTHa 


01035 


R 


WRTSEC 


01047 


R 


WRTS.l 


01051 


R 


CHKCYL 


01056 


R 


CHKC.l 


0l06fl 


R 


CHKHD 


01072 


R 


CHKH,1 


01074 


R 


CHKSEC 


01106 


R 




CHKS.l 


01Ufi) 


R 


WRITE 


01115 


R 


READ 


01142 


R 


RANGEN 


01167 


R 


o 


RANTAD 


01204 


R 


RANSAV 


01222 


R 


RANCNT 


01223 


R 


RANCON 


01224 


R 




RANDEX 


01225 


R 


RANTBU 


01226 


R 


SUMCHK 


01236 


R 


CHKSUM 


01253 


R 




BUFGEN 


01276 


R 


BUFG,1 


01301 


R 


RESBUF 


01314 


R 


ACTIVE 


01322 


R 


o 


BUFFER 


01332 


R 


BUFSIZ 


005000 


A 


SECSIZ 


085000 


A 


ACSAVE 


06332 


R 




AORREG 


06333 


R 


APIFLG 


06334 


R 


BRKFUG 


06335 


R 


BUF.l 


06336 


R 




BUF,2 


06337 


R 


BUF,3 


06340 


R 


CA,1 


06341 


R 


UEL.l 


06342 


R 


o 


ER2TMP 


06343 


R 


FMERCT 


06344 


R 


FMTERQ 


06345 


R 


NUHUNT 


06346 


R 


^••^y 


ONLol 


06347 


R 


DNU.2 


06350 


R 


QNL,3 


06351 


R 


OPRCNT 


06352 


R 




PARINO 


06353 


R 


PUT.l 


06354 


R 


PUT. 2 


06355 


R 


recflg 


06356 


R 


o 


RECl 


06357 


R 


REC.2 


06360 


R 


RED, I 


06361 


R 


RESTHP 


06362 


R 


RUNLEN 


06363 


R 


SAVAOR 


06364 


R 


SAVEWC 


06365 


R 


SET.l 


06366 


R 




SET, 2 


06367 


R 


SMNEXT 


06370 


R 


SSTATA 


06371 


R 


SSTATB 


06372 


R 


o 


STABFG 


06373 


R 


STATA 


06374 


R 


STATB 


06375 


R 


SUM, I 


06376 


R 


^•*-^ 


SUM, 2 


06377 


R 


SVEXIT 


06400 


R 


SWIND 


06401 


R 


TRYMSK 


06402 


R 




UNNUMB 


06403 


R 


wc,i 


06404 


R 


EEM 


707702 


A 


EBA 


707764 


A 



o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



